home *** CD-ROM | disk | FTP | other *** search
/ Gigarom 1 / Gigarom Macintosh Archives (Quantum Leap)(CDRM1080320)(1993).iso / FILES / HYP / C-D / DeveloperStax.cpt / Developer Stack 1.2r / card_24055.txt < prev    next >
Text File  |  1989-02-26  |  2KB  |  84 lines
  1. -- card: 24055 from stack: in.2r
  2. -- bmap block id: 0
  3. -- flags: 0000
  4. -- background id: 3837
  5. -- name: NumberOfDAs
  6. ----- HyperTalk script -----
  7. on opencard
  8.   put empty into card field "show the number of DAs"
  9. end opencard
  10.  
  11.  
  12. -- part 2 (button)
  13. -- low flags: 00
  14. -- high flags: 8004
  15. -- rect: left=180 top=271 right=294 bottom=288
  16. -- title width / last selected line: 0
  17. -- icon id / first selected line: 0 / 0
  18. -- text alignment: 1
  19. -- font id: 0
  20. -- text size: 12
  21. -- style flags: 0
  22. -- line height: 16
  23. -- part name: numberOfDAs()
  24. ----- HyperTalk script -----
  25. on mouseUp
  26.   if the optionkey is down then pass mouseup
  27.   put numberOfDAs()&&"DAs are installed" into card field "show the number of DAs"
  28. end mouseUp
  29.  
  30.  
  31. -- part 3 (field)
  32. -- low flags: 00
  33. -- high flags: 0000
  34. -- rect: left=317 top=277 right=294 bottom=467
  35. -- title width / last selected line: 0
  36. -- icon id / first selected line: 0 / 0
  37. -- text alignment: 0
  38. -- font id: 3
  39. -- text size: 12
  40. -- style flags: 0
  41. -- line height: 16
  42. -- part name: show the number of das
  43.  
  44.  
  45. -- part contents for background part 10
  46. ----- text -----
  47. 12
  48.  
  49. -- part contents for background part 5
  50. ----- text -----
  51. NumberOfDAs
  52.  
  53. -- part contents for background part 6
  54. ----- text -----
  55.  
  56. Returns the number of DAs installed in the system.
  57.  
  58.  
  59. Send comments & suggestions to Aron Roberts:      CompuServe:  73075,1342
  60.               GEnie:  ARON
  61. ARPA Internet:  csaron@garnet.Berkeley.EDU
  62.             BITNET:  CSARON@UCBCMSA.BITNET
  63.  
  64. This XFCN may be freely distributed.
  65.  
  66. The numberOfDAs() function and getDANames* command may be used in any noncommercial or commercial stacks.
  67.  
  68.  
  69.  
  70.  
  71.  
  72.  
  73. -- part contents for background part 7
  74. ----- text -----
  75. Syntax:
  76.  
  77. numberOfDAs()   
  78.  
  79.  
  80. Returns the count of the DAs in the Apple menu.  This number FUNCTION can be placed into any container.  (The pair of parens, "()",  at the end of "numberOfDAs" is REQUIRED.)  
  81.  
  82. Example:
  83. put numberOfDAs() into theNumber repeat with numericVariable = 1 to numberOfDAs() 
  84.